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‘4 
i This file, PSECTS.REQ, defines the macros for declaring program 
a sections in BLISS. 


RTTITITI TELL ILLTLLL LL E LLL ELE LIL LLLLLiTiiLiiiiiiTiiiiTit ttt 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:® ALL RIGHTS RESERVED. 


'* THIS i hein Be Agi UNDER A LICENSE AND MAY BE USED AND COP 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
!t INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY O 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 
- Fasmestaatee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER 


is Lhe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
Hl SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 


" 
:@ CORPORATION. 


IT 0 
TA 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PRR ERE AERA EERE RAAT ETE 


i Revision History: 
i Note: this first section of the revision history refers to RTLPSECT. 


! 

1 

! 

| 

{ 

1 

' 01-2. = Data PIC, NOSHR. TNH 19-Dec-77 

' 01-03 - Make OWN be NOSHARE. TNH 6-Jan-77. 

i 01-5 = Make OWN be PIC. TNH 27-June-78. 

! 01-6 = Change name to RTLPSECT. REQ. ee 14-NOV-78 

' 1-007 - Add copge’ ht notice. JBS i6-N 

! 1-008 = Change PSECT names to start vith ares to conform to new RTL 
: standard. JBS 21-DEC-78 

! 1-009 - Remove the PRINT statement, for the new BLISS compiler. 

JBS 02-0CT-1979 

' End of revision history for RTLPSECT, beginning of revision history 
: for PSECTS. 

! 1-010 - Created PSECTS from RTLPSECT. JBS Li =: whee 

1-011 = Update copyright notice. JBS 21-Jun-198 


' 

! Declare PSECTS for all EDT modules. 

i¢ 

! Macro to declare PSECTs for a facility, given the facility prefix. 


T NOTIC 
QUIPMEN 


® 
® 
® 
® 
® 
® 
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® 
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® 
® 
*® 
® 
® 
® 
® 
* 
* 
® 
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RE 
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' The declarations are at dependent on the Linker algorithm for 

! sorting PSECTs. Currently that algorithm divides PSECTs into four 

: groups eg yin on WRITE vs NOWRITE and EXECUTE vs NOEXECUTE. 
herefore in order to get compact programs, PLIT is made EXECUTABLE 

to get it close to CODE. 


Example of use: 
PSECT DECLARATIONS: 
DECLARE_PSECTS (FOR); ! Declare PSECTs for FORS$ facility 
i Note: since the gga = manual does not yet specify where PSECT 


' declarations ge in a modu nag are put between EGUATED SYMBOLS 
i and OWN STORAGE (which is after INCLUDE files). 


ACRO 
DECLARE_PSECTS (FAC) = 


NAME eM FAC, $CODE) (READ, NOWRIT 


id E, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), 
PLIT = ZNAME ('_*, FAC, SCODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING MODE (WORD RELATIVE)) 
= XNAME ('~", FAC, SDATA) (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING_MODE (LONG_RELATIVES), 


GLOBAL = ZNAME ('_*, FAC, $DATA) (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING_MODE (LONG_RELATIVE)) % 


- ¢ 


+ 

Define macro for tb gg PIC (position independent) Giapaten tables 
as OWN storage (would be better if BIND table = PLIT (... however, 

BLISS doesn't allow table to be referenced inside PLIT definition, 

so use OWN storage instead). The OWN storage is on Pig ag defined 

to be same PSECT as code, then DECLARE_PSECTS should be called again 

to restore OWN to _facS$DATA PSECT. 


MACRO 
DISPATCH_PSECTS (FAC) = 


PSECT 
CODE = XNAME ('_', FAC, SCODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), 
PLIT = ZNAME ('~', FAC, S$CODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING-MODE (WORD-RELATIVE)), 
OWN = XNAME ('~", FAC, $CODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING MODE (WORD-RELATIVE)) 
GLOBAL = ZNAME T'_", FAC, SCODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVES) % 


End of file PSECTS.REQ 
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